What PC? 1999 January/WPCJAN99.ISO/DXRS/Buyers01.dxr/Internal_34_scroll down button.ls

Text File | 1998-11-09 | 908 b | 21 lines

on mouseUp
  moveDownReviewList()
end

on moveDownReviewList
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, reviewsDisplayed, SpriteList, SpriteForFirstOptionInList
  set NumItems to count(listOfSelectedReviews)
  if (pointerToReviewsList + reviewsDisplayed) <= NumItems then
    set pointerToReviewsList to pointerToReviewsList + 1
    set ScrollPosTop to ScrollPosTop + scrollIncrements
    set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  end if
  repeat with s = 1 to reviewsDisplayed
    set l to s + pointerToReviewsList - 1
    set currentItem to getAt(listOfSelectedReviews, l)
    put "currentitem" && currentItem
    set the member of sprite (SpriteForFirstOptionInList + s - 1) to member (currentItem && "graphic text")
    updateStage()
  end repeat
end